Notes/Domino 6 and 7 Forum : Empty body when generating a memo from lotus script

Hi all,
I am experiencing the following problem, hope someone can help.
I have an agent that creates an email, containing some text and then shows this email to the user so he/she can further edit it.
The strange thing is, that the body of the email shows empty (also there is no text in it when I look at the properties). All other attributes, such as SendTo and Subject are OK.
However, when I step through my code using the debugger, the body does contain the correct text.
What can be wrong?
The code of my agent is as follows:

Sub Initialize
Dim currDb As NotesDatabase
Dim currDoc As NotesDocument
Dim mailDoc As NotesDocument
Dim s As New NotesSession
Dim rtitem As NotesRichTextItem
NotesDocumentCollection
Dim mailDb As New NotesDatabase ("", "")
Dim ws As New NotesUIWorkspace

Set currDb = s.CurrentDatabase
Set currDoc = s.DocumentContext

Call mailDb.OpenMail

Set mailDoc = New NotesDocument(mailDb)
mailDoc.Form = "Memo"
If currDoc.Email(0) <> "" Then
maildoc.SendTo = currDoc.Email(0)

End If
Set rtitem = New NotesRichTextItem (maildoc, "Body" )
Call rtitem.AppendText("sometext") maildoc.Subject = "Bevestiging pakket aankoop"
Call ws.EditDocument(True, mailDoc)

Exit Sub
ErrorHandling:
Print "Error - " & Error & " - Erl: " & Erl
Exit Sub
End Sub